Microsoft Encarta World Atlas 1999/Encarta World 99 Install Disk.iso/support/DirHTML/diagnose.dcr/00042.ls

Text File | 1998-09-01 | 468 b | 21 lines

property piMaxWidth

on beginSprite me
  set piMaxWidth to the width of sprite 68
  add(the actorList, me)
end

on endSprite me
  deleteOne(the actorList, me)
end

on stepFrame me
  set liSWApercent to integer(the percentPlayed of member "SWAaudio")
  set liNewWidth to piMaxWidth * liSWApercent / 100
  if not liNewWidth then
    set liNewWidth to 1
  end if
  set the width of sprite the spriteNum of me to liNewWidth
  sendSprite(70, #setDisplay, liSWApercent)
end